home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / DECINARY.bas < prev    next >
BASIC Source File  |  2019-02-17  |  535b  |  20 lines
  1. 0  LET N = 759000: REM   Data Limit is:1099511630000  <CTRL-J>
  2. 1  REM                Decimal To Binary<CTRL-J>
  3. 2  TEXT : HOME : SPEED= 255: PRINT  CHR$(4);"PR#3"
  4. 3 N = (N +10000):Z = N: ONERR  GOTO 900
  5. 5  PRINT N;" Base TEN = ";
  6. 20  FOR E = 40 TO 0  STEP  -1
  7. 30 I =  INT(N/2 ^E)
  8. 40  PRINT I;
  9. 50 R = N -I *2 ^E
  10. 60 N = R
  11. 70  NEXT E
  12. 80  PRINT " Base Two."
  13. 90 N = Z: PRINT 
  14. 100  GOTO 3
  15. 900 P =  PEEK(222)
  16. 910  IF P < >255  THEN  CONT 
  17. 920  IF P = 255  THEN 930
  18. 925  GOTO 0
  19. 930  PRINT  CHR$(4);"prefix/"
  20. 940  PRINT  CHR$(4);"-/ram/mc": NEW